Sau khi thực hiên đoạn lệnh sau, thì màn hình hiện lên kết quả nào?
a:=1; b:=2;
a:=a+b;
if a<b then a:=a+2 else a:=a+3;
write(a);
A.5 B.7 C.6 D.4
Cho biết kết quả của lệnh sau: if (a > b) then writeln(a); else writeln(b);
A. Viết ra màn hình số nhỏ nhất trong 2 số a và b
B. Viết ra màn hình số lớn nhất trong 2 số a và b
C. Câu lệnh sai nên không thực hiện được
D. Đảo giá trị của hai biến a và b
Hãy cho biết kết quả xuất ra màn hình sau khi thực hiện câu lệnh Writeln(16*2-3);
A. 16*2-3= B. 16*2-3=29 C. 29 D. 16*2-3
Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a=b then writeln(‘a=b’) else writeln(‘a<>b’);
A. a>b
B. a=b
C. a<b
D. a<>b
Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a<>b then writeln(‘a<>b’) else writeln(‘a=b’);
A. a>b
B. a=b
C. a<b
D. a<>b
Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a<b then writeln(‘a<b’) else writeln(‘a>b’);
A. a>b
B. a=b
C. a<b
D. a<>b
Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a>b then writeln(‘a>b’) else writeln(‘a<b’);
A. a>b
B. a=b
C. a<b
D. a≠b
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình:
S := 0;
for i:= 1 to 3 do s := s+i;
Kết quả in lên màn hình là của s là :
A. 15 B. 6 C. 11 D. 22
Câu 2: Trong Pascal, câu lệnh nào sau đây là đúng?
A. S:=1;While S<10 do write(S);
B. i:=0; S:=1;While s<10 do S:=S+i; i:=i+1;
C. n:=2; While n<5 do write(‘A’);
D. S:=10; While S>9 do write(S);
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
4) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<5) then a:=a+b;
a. Đúng b. Sai
5) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=2; b:=3;
If (a+b<5) or (b-a>0) then a:=a+b;
a. Đúng b. Sai
6) Cho biết kết quả phép so sánh trong đoạn lệnh sau đây:
a:=1; b:=2;
If (a+b<=3) and (b-a>1) then a:=a+b;
a. Đúng b. Sai
7) Câu lệnh nào sau đây được viết đúng cú pháp:
a) If N >4 then N=N+1;
d) If K:=2 then write(‘chao’);
c) If z+y=x then x:=z-y;
d) If X =>10 then
write(‘X lon hon hoac bang 10’);
8) Câu lệnh nào sau đây viết sai cú pháp:
a. if k>2 then k:=k-1;
else k:=k+1;
b. if a> b then
begin
a:=a+b; b:=b+1;
end
Else
begin
a:=a-b; b:=b-1;
end;
c. if N=K div 10 then write(K) else writeln(N);
d. if 2>3 then write(2) else write(3);
9) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=5;
if x mod 2 = 1 then
x:=x+3;
a. 5 b. 3 c. 2 d. 8
10) x có giá trị bao nhiêu sau khi thực hiện lệnh sau:
x:=1; t:=3;
if x< t+5 then
x:=x+3;
else
begin
t:=t-1;
x:=x+t;
end;
x:=x*x;
a. 1 b. 3 c. 8 d.16